home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / chgjobl.arc / CHGJOBL.CLP next >
Text File  |  1991-12-04  |  721b  |  15 lines
  1.  CHGJOBLOG:  PGM        PARM(&OUTQ)
  2.              /*   (c) 1987 by Q38.  All rights reserved. */
  3.              DCL        &OUTQ *CHAR 20
  4.              DCL        &JOBNAME *CHAR 10
  5.              DCL        &USER *CHAR 10
  6.              DCL        &JOBNBR *CHAR 6
  7.              MONMSG     MSGID(CPF0000)
  8.              RTVJOBA    JOB(&JOBNAME) USER(&USER) NBR(&JOBNBR)
  9.              SBMJOB     JOB(CHGJOBLOG) JOBQ(QCTL) RQSDTA('ChgJobLog2 +
  10.                           Job(' *CAT &JOBNAME *TCAT '.' *CAT &USER +
  11.                           *TCAT '.' *CAT &JOBNBR *TCAT ') outq(' *CAT +
  12.                           %SST(&OUTQ 01 10) *TCAT '.' *CAT %SST(&OUTQ +
  13.                           11 10) *TCAT ')')
  14.  ENDPGM:     ENDPGM
  15.